home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sort2.zip / STDINHDR.INC < prev    next >
Text File  |  1993-01-04  |  325b  |  9 lines
  1. { If input is desired from standard input at random intervals, tell the user
  2.   when it is his turn to go. }
  3.  
  4. procedure stdinhdr; begin
  5.    if isatty(0) then begin
  6.       assign(fe,'CON'); rewrite(fe); writeln(fe,' ',pname,
  7. ': Entered lines to be sorted.  Terminate entry with control-Z.' );
  8.       close(fe); end; end;
  9.